

		* APPENDIX 17: Perception of the Labour Party Being United or Divided does not Explain the Findings
		
		cd "$data"
		use "data1.dta", clear 
		
		
		gen united6 = .
		replace united6 = 0 if labUnitedW6==1 | labUnitedW6==2 | labUnitedW6==3 
		replace united6 = 1 if labUnitedW6==4 | labUnitedW6==5
		
		gen united7 = .
		replace united7 = 0 if labUnitedW7==1 | labUnitedW7==2 | labUnitedW7==3 
		replace united7 = 1 if labUnitedW7==4 | labUnitedW7==5
		
		
		eststo M_1: regress shiftw6w7_LR i.partyid6##i.united6, robust
		margins, at(partyid6=(1)) over(united6) post
		estimates store united6_l
		
		eststo M_2: regress shiftw6w7_LR i.partyid6##i.united7, robust
		margins, at(partyid6=(1)) over(united7) post 
		estimates store united7_l

		
coefplot united6_l united7_l, horizontal yline(0) title("Labour identifiers") yline(0, lpattern(dash)) xscale(range(0(0.5).3)) ylabel(1 "not united (wave 6)" 2 "united (wave 6)" 3 "not united (wave 7)" 4 "united (wave 7)", angle(0)) legend(off)
graph save "${figures}/Figure17_a.gph", replace 

		eststo M_1: regress shiftw6w7_LR i.partyid6##i.united6, robust
		margins, at(partyid6=(2)) over(united6) post
		estimates store united6_c
		
		eststo M_2: regress shiftw6w7_LR i.partyid6##i.united7, robust
		margins, at(partyid6=(2)) over(united7) post 
		estimates store united7_c

		coefplot united6_c united7_c, horizontal yline(0) title("Conservative identifiers") yline(0, lpattern(dash)) xscale(range(-0.35(0.5)0)) ylabel(1 "not united (wave 6)" 2 "united (wave 6)" 3 "not united (wave 7)" 4 "united (wave 7)", angle(0)) legend(off)
graph save "${figures}/Figure17_b.gph", replace 

		cd "$figures"
		graph combine "Figure17_a.gph" "Figure17_b.gph", xcommon xsize(14) ysize(8)
		graph save "${figures}/Figure17_1.gph", replace 
